home *** CD-ROM | disk | FTP | other *** search
/ Directorty Opus 5 - Magellan 2 / Opus 5 - Magellan 2.iso / Extras / rndpic / Module-Install next >
Text File  |  1998-04-09  |  3KB  |  104 lines
  1. ; $VER: RndPic Install 1.0
  2. ; Date: 9.4.98
  3. ; Author: Helmut Hummel <hhummel@t-online.de>
  4.  
  5. (set #nodoc "A doc for your native language is not available. You should copy a doc file of your choice to your DOpus5 docs manually.")
  6. (set #nocat "Sorry, a catalog for your native language is not available.")
  7.  
  8. (if (= @language "deutsch")
  9.     (
  10.         (set #welcome       "Willkommen bei der Installation des RndPic-Moduls !")
  11.         (set #wronginst     "Leider ist mindestens der Installer V42.9 nötig.")
  12.         (set #wrongkick     "Leider brauchst Du mindestens Kick/WB 2.x und eine 68020 CPU")
  13.         (set #helpguide     "Möchtest Du die Guide nach DOpus5:Help kopieren ?")
  14.         (set #helpguidehelp "Du brauchst sie nicht unbedingt, doch für die Online-Hilfe ist sie erforderlich.")
  15.         (set #module        "Kopiere RndPic-Modul")
  16.         (set #doc           "Kopiere Anleitung")
  17.         (set #catalog       "Kopiere Katalog")
  18.         (set #success       "Das RndPic-Modul wurde erfolgreich nach \"DOpus5:\" installiert. Jetzt solltest Du RndPicPrefs starten. Viel Spass !")
  19.     )
  20.     (
  21.         (set #welcome       "Welcome to the installation of the RndPic module !")
  22.         (set #wronginst     "Sorry, you need the Installer V43 to go on.")
  23.         (set #wrongkick     "Sorry, but you need at least Kick/WB 2.x and a 68020 CPU")
  24.         (set #helpguide     "Do you wish to install the guide to DOpus5:Help ?" )
  25.         (set #helpguidehelp "You need them not to use the RndPic module. It is needed, if you want to use the online help.")
  26.         (set #module        "Copying RndPic module")
  27.         (set #doc           "Copying doc")
  28.         (set #catalog       "Copying catalog")
  29.         (set #success       "The RndPic module is successful installed to \"DOpus5:\" . Now you should run RndPicPrefs. Enjoy it.")
  30.     )
  31. )
  32.  
  33. ;
  34.  
  35. (if (= @installer-version 0)
  36.     (abort #wronginst)
  37. )
  38.  
  39. (set cpu (+ (database "cpu")))
  40.  
  41. (if     (OR (< (getversion) 37)
  42.              (< cpu 68020)
  43.         )
  44.         (abort #wrongkick)
  45. )
  46.  
  47. (set @default-dest "DOpus5:")
  48. (set helpguide 0)
  49.  
  50. (welcome #welcome)
  51.  
  52. (set docdir (cat "Opus5/help/" @language))
  53.  
  54. (if (exists docdir (noreq))
  55.     (
  56.        (
  57.           (if @user-level
  58.               (set helpguide
  59.                   (askbool
  60.                       (prompt #helpguide)
  61.                       (help #helpguidehelp)
  62.                   )
  63.               )
  64.           )
  65.           (
  66.               (set helpguide 1)
  67.           )
  68.        )
  69.        (if helpguide
  70.            (copyfiles
  71.                 (prompt #doc)
  72.                 (source docdir)
  73.                 (dest "DOpus5:Help/")
  74.                 (all)
  75.            )
  76.        )
  77.     )
  78.     (message #nodoc)
  79. )
  80.  
  81. (copyfiles
  82.        (prompt #module)
  83.        (source "Opus5/modules/")
  84.        (dest "DOpus5:modules/")
  85.        (all)
  86. )
  87.  
  88.  
  89. (set catalogdir (cat "Opus5/catalogs/" @language))
  90.  
  91. (if (exists catalogdir (noreq))
  92.     (
  93.          (copyfiles
  94.               (prompt #catalog)
  95.               (source catalogdir)
  96.               (dest (cat "DOpus5:catalogs/" @language))
  97.               (pattern "#?.catalog")
  98.          )
  99.     )
  100.     (message #nocat)
  101. )
  102.  
  103. (exit #success (quiet))
  104.